    Delegate Sub TestDelegate(ByVal sender As Object, ByVal i As Integer)